;PATH=PRAGMA(''D'');options results;LF='0A'x;IF Left(ADDRESS(),8) ~="MICRODOT" THEN;DO;SAY LF "MDRequest" LF LF LF "Fehler: Dieses Script kann nur von Microdot aus gestartet werden" LF;EXIT;END;IF ~SHOW('LIBRARIES','rexxtricks.library') THEN;IF ~ADDLIB('rexxtricks.library',5,-30,38) THEN;DO;REQUEST '"Kann rexxtricks.library nicht öffnen" "Tjo"';EXIT;END;verstr=REXXTRICKSVERSION();rtv='38.6';IF verstr<rtv THEN;DO;CALL BEEP();text=" Sorry, aber die momentan installierte Rexxtricks.library*N ist leider nicht geeignet.*N*N Installiert ist Version" verstr||", benötigt wird Version "||rtv;REQUEST '"'text'" "Dumm gelaufen"';EXIT;END;DROP verstr rtv;IF ~SHOW("L","rexxreqtools.library") THEN;DO;if ~addlib("rexxreqtools.library",0,-30,0) then;do;REQUEST '"Kann rexxreqtools.library nicht öffnen" "Tjo"';EXIT(0);end;end;tags="rt_pubscrname=MICRODOT rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rt_lockwindow=true";Reqname="ANet-Upload V1.2";DATUM= DATE(E);COMMENT="File wurde am "||DATUM||" ins Aminet verschickt";SCRIPT=PATH"/REXX/ANet-Upload.mdrexx";ICON=SCRIPT".info";IF ~exists(SCRIPT) THEN;DO;CALL BEEP();rtezrequest('»» Sie haben das original Script umbenannt ««'||LF||LF||'Original = "ANet-Upload.mdrexx"'||LF||LF||'deshalb wird das Icon mit den Einstellungen nicht abgefragt.','Du merkst auch alles :-(',Reqname,tags,);EXIT;END;IF ~exists(ICON) THEN;DO;CALL BEEP();rtezrequest('»» Für dieses Script existiert kein Icon ««'||LF||LF||'('||ICON||')'||LF||LF||'Die notwendigen Daten konnten'||LF||'nicht abgefragt werden.','So ein Mist :-((',Reqname,tags,);EXIT;END;ANET=UPPER(GETTOOLTYPEVALUE(SCRIPT,'ANET'));FilePath=UPPER(GETTOOLTYPEVALUE(SCRIPT,'FilePath'));StorePath=UPPER(GETTOOLTYPEVALUE(SCRIPT,'StorePath'));hoch=UPPER(GETTOOLTYPEVALUE(SCRIPT,'Req-H'));breit=UPPER(GETTOOLTYPEVALUE(SCRIPT,'Req-B'));IF ~GETDIR(FilePath,'~(#?.info|#?.read#?)','FILES1','FILES','PATH') THEN;DO;rtezrequest('Entweder existiert das Verzeichnis'||LF||'"'||FilePath||'"'||LF||'nicht, oder es ist leer.','Ist ja schon gut :-(',Reqname,tags,);EXIT;END;fenster.title=''||Reqname||'';fenster.gadgettext='_Senden|_Abbruch';fenster.pubscreen='MICRODOT';fenster.font='DEFAULT';fenster.sort=TRUE;fenster.width=breit;fenster.height=hoch;res=VIEWLIST('FILES1','fenster','FILES2');SELECT;WHEN FILES2.gadget=1&res=0 THEN;DO;FILES2.0=0;CALL ENDE;END;WHEN FILES2.gadget=0 THEN;DO;FILES2.0=0;CALL ENDE;END;WHEN FILES2.gadget=1 THEN;DO;DO i=1 to FILES2.0;IF FILES2.0=-1 THEN leave;Name=FILEPART(FILES2.i);pend=LASTPOS(".",FILES2.i);read1=LEFT(FILES2.i,pend)"readme";packend=UPPER(SUFFIXPART(FILES2.i));IF packend="DMS" THEN;DO;CALL DMSFiles;FILES2.0=FILES2.0-1;ITERATE;END;was=2;IF ~EXISTS(read1) THEN CALL READMES;IF was=0 THEN;DO;FILES2.0=FILES2.0-1;ITERATE;END;lang=length(Name);IF lang>18 THEN CALL NewName;IF lang=0 THEN;DO;FILES2.0=FILES2.0-1;ITERATE;END;read2=FILEPART(read1);res=GETCOMMENT(FILES2.i);IF res ~="" THEN SETCOMMENT(FILES2.i,'');res=GETCOMMENT(read1);IF res ~="" THEN SETCOMMENT(read1,'');SENDMAIL 'TO='||ANET||' BODYFILE='||FILES2.i||' BIN SUBJECT='||Name||' SHORTCOMMENT='Name;SENDMAIL 'TO='||ANET||' BODYFILE='||read1||' BIN SUBJECT='||read2||' SHORTCOMMENT='read2;SETCOMMENT(FILES2.i,COMMENT);SETCOMMENT(read1,COMMENT);ADDRESS COMMAND 'c:move 'FILES2.i storepath 'clone quiet';ADDRESS COMMAND 'c:move 'read1 storepath 'clone quiet';END;END;END;ENDE:;IF FILES2.0=0 THEN;DO;rtezrequest('Es wurden keine Files verschickt','Nächstes mal :-)',Reqname,tags,);END;ELSE;DO;rtezrequest('Erforlgreicher Versand von'||LF||FILES2.0||' Files und'||LF||FILES2.0||' .readme-Dateien','Wunderbar',ReqName,tags,);END;EXIT;DMSFiles:;rtezrequest('".dms"-Files dürfen nicht ins AMINET'||LF||'verschickt werden !','Schade',Reqname,tags,);RETURN;NewName:;DO UNTIL lang<19;Name=rtgetstring(Name,'Der Filename ist zu lang ('||lang||' Zeichen),'||LF||'max. 18 Zeichen'||LF||'(incl. Packer-suffix).',ReqName,,tags,res);lang=LENGTH(Name);END;IF lang=0&res=1 THEN;DO;lang=0;END;ELSE;DO;p1=PATHPART(FILES2.i);t1=MAKEPATH(p1,Name);pend=LASTPOS(".",t1);t2=LEFT(t1,pend)"readme";ADDRESS COMMAND 'c:rename 'FILES2.i t1;ADDRESS COMMAND 'c:rename 'read1 t2;FILES2.i=t1;read1=t2;END;RETURN;READMES:;was=rtezrequest('Zu dem File "'||Name||'"'||LF||'existiert kein ".readme"-File.'||LF||'Soll ein ".readme" erzeugt werden ?','Erzeugen|Überspringen',Reqname,tags,);IF was=0 THEN RETURN;ELSE was=1;getprefs stem MD.;tmp="T:ANet-Upload.tmp";IF packend="LHA" THEN;DO;packer="C:LHA >";ADDRESS COMMAND packer tmp 'v' FILES2.i;min=4;END;IF packend="LZX" THEN;DO;packer="C:LZX >";ADDRESS COMMAND packer tmp 'l' FILES2.i;min=7;END;READFILE(tmp,readme);STEMREMOVE(readme,1,min);start=readme.0-1;STEMREMOVE(readme,start,2);short=rtgetstring(,'»» Englischer Kurz-Kommentar ««'||LF||'für das File'||LF||Name,ReqName,,tags,);kurz=rtgetstring(,'»» Deutscher Kurz-Kommentar ««'||LF||'für das File'||LF||Name,ReqName,,tags,);type=rtgetstring(,'In welches Aminet-Verzeichnis'||LF||'soll das File geroutet werden ?'||LF||LF||'z.B.: util/rexx',ReqName,,tags,);distri=rtgetstring('Freeware','»» Welche Art von Software soll es sein ? ««',ReqName,,tags,);short="Short: "||short;kurz="Kurz: "||kurz;author="Author: "||MD.Userrealname;uploader="Uploader: "||MD.Username"@"||MD.Servername||MD.Serverdomain||" ("||MD.Userrealname||")";type="Type: "||type;distri="Distribution: "||distri;STEMINSERT(readme,1,1,'');STEMINSERT(readme,1,1,'============================= Archive contents =============================');STEMINSERT(readme,1,1,'');STEMINSERT(readme,1,1,'');STEMINSERT(readme,1,1,'»»» automatic created ".readme"-file with '||Reqname||' for Microdot «««');STEMINSERT(readme,1,1,'');STEMINSERT(readme,1,1,'');STEMINSERT(readme,1,1,distri);STEMINSERT(readme,1,1,type);STEMINSERT(readme,1,1,uploader);STEMINSERT(readme,1,1,author);STEMINSERT(readme,1,1,kurz);STEMINSERT(readme,1,1,short);WRITEFILE(tmp,readme);ADDRESS COMMAND 'C:move' tmp read1 'clone quiet';RETURN
